home *** CD-ROM | disk | FTP | other *** search
- public setcom, status, baudprt, prmptr, dodef, stat0, statc
- public setcpt, docom, shomac, dmpname, stkadr
- public setrx, shorx, rxtable, shcom, shlog, shpro, shterm, shscpt
- public shfile, srvdsa, srvena, srchkw, srchkb, shserv
- public mcctab, takopen, takclos, ask, assign
- include ccsdef.h
-
- braceop equ 7bh ; opening curly brace
- bracecl equ 7dh ; closing curly brace
- macmax equ 50 ; max # of macros
- maketab MACRO ; Assembler Macro to make rxtable [jrd]
- cnt = 0
- rept 256
- db cnt ; initialize table to 0 .. 255
- cnt = cnt + 1
- endm
- db 0 ; table off (0) or on (1) indicator
- ENDM
- datas segment public 'datas'
- extrn comand:byte, intake:byte, flags:byte, trans:byte
- extrn takadr:word, taklev:byte, inichk:byte, portval:word
- extrn curdsk:byte, setktab:byte, setkhlp:byte, dtrans:byte
- extrn spause:byte, filtst:byte, maxtry:byte, imxtry:byte
- extrn script:byte, denyflg:word, comptab:byte, termtb:byte
- extrn sloghnd:word, ploghnd:word, tloghnd:word, decbuf:byte
- extrn kstatus:word, errlev:byte, alrhms:byte, srvtmo:byte
- extrn isccdos:byte
-
- kerm db 'Kermit-CC>$'
- crlf db cr,lf,'$'
- crlfsp db cr,lf,' ',' ','$' ; crlf space space
- eqs db ' = $'
- spaces db ' $'
- prmptr dw kerm ; pointer to prompt
- prm db 60 dup (?) ; Buffer for new prompt
- rdbuf db 255 dup (?) ; work space; room for macro def
- ; and for Status display line
- tempptr dw 0 ; pointer into work buffer
- domacptr dw 0 ; pointer to DO MAC string
-
- min dw 0
- max dw 0
- numerr dw 0
- numhlp dw 0
- stflg db 0 ; Says if setting SEND or RECEIVE parameter
- temp dw 0
- temp1 dw 0 ; Temporary storage
- temp2 dw 0 ; Temporary storage
- deftemp dw 0
- shmcnt dw 0
-
- stent struc ; structure for status information table sttab
- sttyp dw ? ; type (actually routine to call)
- msg dw ? ; message to print
- val2 dw ? ; needed value: another message, or tbl addr
- tstcel dw ? ; address of cell to test, in data segment
- basval dw 0 ; base value, if non-zero
- stent ends
- ;;;;; Additional datas segment material is at the end of this file, to assist
- ;;;;; MASM 4 with out of symbol table space problems.
- datas ends
-